R Notebook

#install.packages("plotly")
library('plotly')
####### Q1 -> a ##########
head(iris)

p <- plot_ly(data = iris, x = ~Sepal.Length, y = ~Petal.Length)
p

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

####### Q1 -> b ##########
pal <- c("red", "blue", "green")
p = plot_ly(data = iris, x = ~Sepal.Length, y = ~Petal.Length,color = ~Species , colors = pal)
p

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

######## Q1 -> c #########
# 1
p = plot_ly(data =iris,  x = ~Sepal.Length , type = "histogram")
p

# 2
p = plot_ly(data =iris,  y = ~Sepal.Length , type = "histogram")
p

# 3
p = plot_ly(data =iris,  alpha = 0.6) %>%
  add_histogram(x = ~Sepal.Length) %>%
  add_histogram(x = ~Sepal.Length + 1) %>%
  layout(barmode = "overlay")
p

######## Q1 -> d #########
today <- Sys.Date()
tm <- seq(0, 600, by = 10)
x <- today - tm
y <- rnorm(length(x))
p <- plot_ly(x = ~x, y = ~y, mode = 'lines', text = paste(tm, "days from today"))
p

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter

d = read.csv("https://raw.githubusercontent.com/plotly/datasets/master/2011_february_us_airport_traffic.csv")
d

d$hover <- with(d, paste(state, '<br>', airport, iata , "<br>",
                            city,"<br>"))
# give state boundaries a white border
l <- list(color = toRGB("white"), width = 0.5)
# specify some map projection/options
g <- list(
  scope = 'usa',
  projection = list(type = 'albers usa'),
  showlakes = TRUE,
  lakecolor = toRGB('white')
)
p <- plot_geo(d, locationmode = 'USA-states') %>%
  add_trace(
    z = ~cnt, text = ~hover , locations = ~state,
    color = ~cnt, colors = 'Blues'
  ) %>%
  colorbar(title = "Count") %>%
  layout(
    title = '2011 US Airport Traffic',
    geo = g
  )
p

p <- plot_geo(df[1:1500,], lat = ~lat, lon = ~lon) %>%
  add_markers(
    text = ~paste(name, paste("Population:", pop)),
    color = ~name, symbol = I("square"), size = I(8), hoverinfo = "text"
  ) %>%
  colorbar(title = "population of cities") %>%
  layout(
    title = 'Most populated cities in US <br />(Hover for population of cities)', geo = g
  )

n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Didn't find a colorbar to modify.

p <- plot_geo(df[1:1500,], lat = ~lat, lon = ~lon) %>%
  add_markers(
    text = ~paste(name, paste("Population:", pop)),
    color = ~name, symbol = I("square"), size = I(8), hoverinfo = "text"
  ) %>%
  colorbar(title = "population of cities") %>%
  layout(
    title = 'Most populated cities in US <br />(Hover for population of cities)', geo = g
  )

n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Didn't find a colorbar to modify.

p